1 CLEAR:CLS:SCREEN7,7,0:BOXF(0,160)-(319,199),0:LOCATE0,21:FORI=0TO7:COLOR,I:PRINT" ";I;" ";:NEXT:COLOR,0:PRINT"COULEUR":PRINT"B=BOITE";T=TRAIT;C=CRAYON":PRINT"Pointer le crayon sur (X) pour ==>":B$="DODO":C$="PPP":E=33:F=21:G=25:H=22:ONERRORGOTO1:COLOR7,0
2 LOCATEE,F:COLOR7:PLAYB$:INPUTD$:IFD$<"0"ORD$>"7"THEN3ELSEC=VAL(D$):LOCATEG,H:INPUTA$:COLORC:INPUTENX,Y:PLAYC$:INPUTPENK,L:IFA$="B"THENBOX(X,Y)-(K,L):GOTO2ELSEIFA$="T"THENLINE(X,Y)-(K,L):GOTO3ELSEFORJ=1TO2:INPUTPENX,Y:IFX=-1THEN2ELSEPSET(X,Y):J=J-1:NEXT